HaCKeRz Kr0nlcKLeZ 1/HaCKeRz Kr0nlcKLeZ.iso/scriptz/phildov20.exe/paliases.ini

INI File | 1997-03-15 | 19.4 KB | 195 lines

[Aliases]
n0=f3 /set -q %SoundVar $file="Select a wav to play" c:\windows\desktop\mirc\mirc2\*.mid | /sound #  %SoundVar Now playing %SoundVar }
n1=/violationcheck {
n2=%words = $1
n3=%chnl = $2
n4=%nick = $parm2
n5=%i = 1
n6=%violation = 0
n7=%j = $lines(%words)
n8=:loop
n9=%pattern = $read -l $+ %i %words
n10=if %pattern isin $parm3* set { %violation 1 }
n11=inc %i
n12=if %i <= %j { goto loop }
n13=if %violation == 1  {
n14=  inc % $+ $parm2 $+ warn 1
n15=  if (% [ $+ [ $parm2 $+ warn ] ]   ==  4)  { whois $parm2 }
n16=  elseif (% [ $+ [ $parm2 $+ warn ] ]   ==  5)  { ban -u300 %chnl %nick 3 | timer 1 3 kick %chnl %nick 12,1{PervAlert} | /echo 4 %chnl Violation Warning: %nick is on $parm3* | /splay udick.wav | /raw off | /raw on | msg $parm2 You where warned NO Kiddie Chans !! Now you have been kicked & banned for 5 minutes!! | unset % $+ $parm2 $+ warn | halt }
n17=  elseif (% [ $+ [ $parm2 $+ warn ] ]   < 4)  { /echo 4 %chnl $parm2 is on $parm3* | msg $parm2 Leave the Kiddie Chan within 20 secs or be Time banned for 5 minutes and kicked from this channel. | echo 4 %chnl Number of warnings for $parm2  % [ $+ [ $parm2  $+  warn ] ] | timer 1 20 /whois $parm2 }
n18=}
n19=else { echo 6 %chnl $parm2 is ok and on $parm3* | if (% [ $+ [ $parm2 $+ warn ] ] != $null) { msg %chnl $parm2, thank you for your cooperation !!! | echo 6 %chnl $parm2 is ok now and on $parm3* } | unset % $+ $parm2 $+ warn | halt }
n20=}
n21=under return $chr(31) *1 $chr(31)
n22=bold return $chr(2) *1 $chr(2)
n23=colr if ($2* != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
n24=idler {
n25=.timer22 0 1 if ($idle == 600) { idleaway  }
n26=else { halt }
n27=}
n28=wontstop { if (%away != $null) { .timer14 0 1000 counting | .timer69 0 1 inc %counter 1 | .timer23 0 1 titleaway } | else { idler } }
n29=idleaway {
n30=ame Set Away at $under($time) , $under($date) $bold($colr(12,Auto Away On Idle.))  | .timer22 off | .timer14 0 1000 counting | %ppage = ╗Pager is ?┐½ | %away = Auto Away On Idle | %pager = OFF
n31=.enable #away | .timer23 0 1 titleaway | .timer69 0 1 inc %counter 1
n32=}
n33=counting ame is away for $under($duration(%counter))  %ppage
n34=titleaway titlebar *«* $+ Away For $duration(%counter) $+ *«*
n35=titleSyCh :start | %BigQ = $$?="Reset The On Line Timer? (Y or N)" | if ((%BigQ != Y) && (%BigQ != N)) { echo 4 -a *** iNvalid Pager Option Please Chose $colr(12,"Y or N") *** | goto start } | elseif (%BigQ == Y ) { unset %titleSecs | echo 4 -s ** ReSeting On Line Timer ** } | elseif (%BigQ == N) { echo 4 -s ** Resuming On Line Timer ** } | .timer264 0 1 inc %titleSecs | .timer265 0 1 titleperf | .timer99 0 3600 ding
n36=titleperf {
n37=if (%away == $null) { titlebar *«*I Have Been On Line For $duration(%titlesecs) $+ *«* }
n38=else { halt }
n39=}
n40=ding { ame I Have Been On Line For $duration(%titleSecs) }
n41=chan.s {
n42=%stat.p 4IniTiaTing $bold(Baz's) Channel Statistics For _- %stat.ch -_ . . .
n43=%notop = $nopnick(0,%stat.ch) - $vnick(0,%stat.ch)
n44=if ($nick(0,%stat.ch) == 1) { %chan.1 = iS } | else { %chan.1 = Are } |   if ($opnick(0,%stat.ch) == 1) { %chan.2 = iS } | else { %chan.2 = Are } |   if ($vnick(0,%stat.ch) == 1) { %chan.3 = iS } | else { %chan.3 = Are } |   if ($nonick(0,%stat.ch) == 1) { %chan.4 = iS } | else { %chan.4 = Are }
n45=%stat.p 10There %chan.1 $nick(0,%stat.ch) Members in %stat.ch , $opnick(0,%stat.ch) Of Them %chan.2 Oped ( $+ $milinum($prec2($opnick(0,%stat.ch),$nick(0,%stat.ch))) $+ ) , $vnick(0,%stat.ch) %chan.3 Voiced ( $+ $milinum($prec2($vnick(0,%stat.ch),$nick(0,%stat.ch))) $+ ) And %notop %chan.4 Regular Users. ( $+ $milinum($prec2(%notop,$nick(0,%stat.ch))) $+ )
n46=%stat.p %chan.away | %stat.p %chan.ircop | stat.s
n47=}
n48=stat.s {
n49=write -c $mircdir $+ stats.ini | %i = 0 | :start | inc %i | if (%i > $nick(0,%stat.ch)) { stat.c }
n50=elseif (($stat.i(start,$address($nick(%i,%stat.ch),2)) != $null) && ($stat.i(found,$address($nick(%i,%stat.ch),2)) == $null))  { %lockup = $stat.i(start,$address($nick(%i,%stat.ch),2)) | writeini $mircdir $+ stats.ini found $address($nick(%i,%stat.ch),2) %lockup $nick(%i,%stat.ch) | set %stat.v %stat.v $address($nick(%i,%stat.ch),2) | goto start }
n51=elseif ($stat.i(found,$address($nick(%i,%stat.ch),2)) != $null) { %lockup = $stat.i(found,$address($nick(%i,%stat.ch),2)) | writeini $mircdir $+ stats.ini found $address($nick(%i,%stat.ch),2) %lockup $nick(%i,%stat.ch) | goto start }
n52=else { writeini $mircdir $+ stats.ini start $address($nick(%i,%stat.ch),2) $nick(%i,%stat.ch) | goto start }
n53=}
n54=stat.c {
n55=%stat.p %stat.clone | %s.i = 0 | :start | %redic = $count(%stat.v,$chr(32)) + 1 | inc %s.i | if (%stat.v == $null) { %stat.p 6The Channel _- %stat.ch -_ iS $bold(Free) Of Clones. | goto end } | elseif (%s.i > %redic) { goto end }
n56=else { %showit = $stat.i(found,$gettok(%stat.v,%s.i,32)) | %stat.n = $count(%showit,$chr(32)) + 1 | %u.i = 0 | %stat.u = $count(%showit,$chr(32))
n57=  :upgrade | inc %u.i | if (%u.i > %stat.u) { goto final } | elseif (%u.i == %stat.u) { set %stat.f %stat.f $gettok(%showit,%u.i,32) | goto upgrade } | else { set %stat.f %stat.f $gettok(%showit,%u.i,32) $+ $chr(44) | goto upgrade } | :final | set %stat.f %stat.f $bold($under(And)) $gettok(%showit,%stat.n,32) | %stat.p $colr($r(1,15),*«*) %stat.f Are %stat.n Clients Of ( $+ $gettok(%stat.v,%s.i,32) $+ ) | unset %stat.f | goto start
n58=}
n59=:end | %stat.t = $ticks - %stat.t | if ($len(%stat.t) <= 3) { set %stat.t 0 $+ %stat.t } | %stat.p 13Process: $milinum(%stat.t) Seconds. | %stat.p %stat.chan | unset %redic %stat* | halt
n60=}
n61=under { return $chr(31) *1 $chr(31) }
n62=milinum { %raw = $1 | set %final $chr(32) | %dev = $len(%raw) - 2 | if (%dev = 1) { set %final %raw | goto cont } | :start | if (%dev <= 1) { set %dev %dev + 2 | set %final $left(%dev,%raw) $+ %final | goto cont } | set %final . $+ $mid(%dev,3,%raw) $+ %final | %dev = %dev - 3 | goto start | :cont | return %final }
n63=stat.i { return $readini $mircdir $+ stats.ini $1 $2 }
n64=bold { return $chr(2) *1 $chr(2) }
n65=colr if (*2 != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
n66=prec2 { %prec2 = $1 * 1000 | %prec2 = %prec2 / $2 | return %prec2 $+ % }
n67=tmo { set %i 0 | set %tmo 0 | :start | inc %i | if (%file [ $+ [ %i ] ] == $null) goto next | %tmo = %tmo + $lof(%file [ $+ [ %i ] ] ) | goto start | :next | %tmo2 = %tmo / 1000000 | %tmo1 = %tmo % 1000000 | if ($len(%tmo1) < 7) set %tmo1 1 | %tmo2 = %tmo2 $+ . $+ $left(1,%tmo1) | halt }
n68=xdcc { if ($1 == on) { .disable #fserve | set %fserve off | set %xdccs on | .enable #xdcc | .enable #xdccmsg | halt } | if ($1 == off) { set %xdccs off | .disable #xdcc | .disable #xdccmsg | halt } | if (($1 == file) && ($2 != $null)) set %file [ $+ [ $2 ] ] $dir="Select File for Pack [ $2 ] "  *.* | if (($1 == desc) && ($2 != $null)) { set %filedesc [ $+ [ $2 ] ] $?="Pack Description for [ [ $2 ] $+ ] :" | tmo } | if (($1 == note) && ($2 != $null)) set %fcomment [ $+ [ $2 ] ] $?="Comment for [ $2 ] " }
n69=kps { if ($len($1) > 3) %cpsget = $remove($1,$right(3,$1)) $+ . $+ $left(2,$right(3,$1)) | else %cpsget = 0 $+ . $+ $1 | return %cpsget }
n70=checksend { set %i 0 | :start | inc %i | if ($send(%i) == $null) halt | if (($send(%i) == $1) && ($send(%i).file == $2) && ($send(%i).status == waiting)) { close -s $1 $2 | raw -q notice $1 :Timeout: $2 | echo %c -a %h One or more DCC SENDs to $1 have timed out. | halt } | goto start }
n71=pmin { if (($1 == $null) || ($2 == $null) || ($1 > %numpacks)) halt | if ($2 == 0) { unset %minsp [ $+ [ $1 ] ] | echo %c -a %h Removed minspeed for  $+ %c2 $+ $1 $+ . | halt } | set %minsp [ $+ [ $1 ] ] [ $2 * 1000 ] | echo %c -a %h Minspeed for Pack $1 $+ :  $+ %c2 $+ $2 $+ kb/s. }
n72=minspeed { if ($1 == $null) halt | if ($1 == 0) { set %msall off | unset %allspeed | halt } | set %msall on | %allspeed = $1 * 1000 | echo %c -a %h Minspeed:  $+ %c2 $+ $1 $+ kb/s. }
n73=doffer { set %xdccs off | .disable #xdcc | .disable #xdccmsg | set %msall off | set %allspeed 0 | unset %minsp* | unset %file* | unset %fcomment* | set %record 0 | set %numpacks 0 | set %xdcclist 0 | set %xdccsend 0 | unset %tlmegs | unset %totalmegs | unset %get* | echo %c -a %h All packs removed from offer list. | set %xdccs off | cq }
n74=addpack { %num = %numpacks + 1 | set %get [ $+ [ %num ] ] 0 | set %filedesc [ $+ [ %num ] ] $$?="Pack Description for [ [ %num ] $+ ] :" | set %fcomment [ $+ [ %num ] ] $?="Comment for [ %num ] Press Cancel for None:" | set %file [ $+ [ %num ] ] $dir="Select File for Pack [ %num ] "  *.* | set %numpacks %num | echo %c -a %h  XDCC Pack Number  $+ %c2 $+ [ %num ] $+  has been added. | tmo }
n75=offer { set %record 0 | set %lrecord 0 | set %fserve off | .disable #fserve | set %xdccs on | .enable #xdcc | .enable #xdccmsg | set %numpacks $$?="Number of Packs:" | set %num 0 | :start | inc %num | if (%num > %numpacks) { set %showsum $$?="Show Summary Line? y for Yes, n for No" | echo %c -a %h  XDCC Offer has been set. Type /dcc anytime for DCC status. | tmo } | set %get [ $+ [ %num ] ] 0 | set %filedesc [ $+ [ %num ] ] $$?="Pack Description for [ [ %num ] $+ ] :" | set %fcomment [ $+ [ %num ] ] $?="Comment for [ %num ] Press Cancel for None:" | set %file [ $+ [ %num ] ] $dir="File for Pack [ %num ] "  *.* | goto start }
n76=cq write -c %qpath
n77=fsize { if ($lof(%file [ $+ [ %num ] ] ) < 1000) { %fsize = $lof(%file [ $+ [ %num ] ] ) | set %bc b } | if (($lof(%file [ $+ [ %num ] ] ) >= 1000) && ($lof(%file [ $+ [ %num ] ] ) < 1000000)) { %fsize = $lof(%file [ $+ [ %num ] ] ) / 1000 | set %bc k } | if ($lof(%file [ $+ [ %num ] ] ) > 1000000) { %fsize = $lof(%file [ $+ [ %num ] ] ) / 1000000 | %fsize1 = $lof(%file [ $+ [ %num ] ] ) % 1000000 | %fsize = %fsize $+ . $+ $left(1,%fsize1) | set %bc M } | return %fsize }
n78=psend { if ($3 != $null) write -dl1 %qpath | if ($2 > %numpacks) halt | raw -q notice $1 :Sending you %filedesc [ $+ [ $2 ] ] $+ , which is one file. | inc %get [ $+ [ $2 ] ] | .timer 1 %chsend checksend $1 [ $nopath(%file [ $+ [ $2 ] ] ) ] | if (%minsp [ $+ [ $2 ] ] != $null) { .timer 1 20 checkspeed $nick $nopath(%file [ $+ [ $2 ] ] ) [ %minsp [ $+ [ $2 ] ] ] } | dcc send $1 [ %file [ $+ [ $2 ] ] ] }
n79=nlist { if (%numpacks == 0) halt | if ($1 == $null) set %xc .notice $active | else set %xc .notice $1 | sdcc }
n80=plist { if (%numpacks == 0) halt | if ($1 == $null) set %xc amsg | else set %xc msg $1 | sdcc }
n81=dcc {
n82=if ($1 == send) { dcc send *2 | halt } | if ($1 == chat) { dcc chat *2 | halt } | if (($send(0) == 0) && ($get(0) == 0)) { echo %c -a %h Nothing on DCC list. | halt } | echo %c -a %h 1, $+ %c3 $+ DnumááááTypeááááNickáááááááStatusááááKpsáááááFilenameááá | if ($get(0) == 0) { set %i 1 | goto send } | if ($send(0) == 0) set %anysends no | set %i 0 | :start | inc %i | unset %barl | if (%i > $get(0)) goto send | %cpsget = $kps($get(%i).cps) | if (($get(%i).cps == n/a) || ($get(%i).cps == 0)) { set %cpsget 0.00 | set %geta4 n/a | goto get1 } | set %geta1 0 | set %geta2 0 | set %geta3 0
n83=%geta = $get(%i).size - $get(%i).rcvd | %geta = %geta / $get(%i).cps | :etag | if (%geta < 60) goto sec | if ((%geta >= 60) && (%geta < 3600)) goto min | %geta3 = %geta / 3600 | %geta = %geta % 3600 | goto etag | :min | %geta2 = %geta / 60  | %geta = %geta % 60  | goto etag | :sec | if (%geta != 0) set %geta1 %geta | if ((%geta1 >= 0) && (%geta1 < 10)) %geta1 = 0 $+ %geta1 | if ((%geta2 >= 0) && (%geta2 < 10)) %geta2 = 0 $+ %geta2 | %geta4 = %geta3 $+ : $+ %geta2 $+ : $+ %geta1 | :get1
n84=echo %c -a áááááááá# $+ %i  áááááGETáááá $get(%i) ááá $get(%i).status áá %cpsget ááá $get(%i).file | %barl = $get(%i).pc + 1 | echo %c -a $read -l $+ %barl %path $+ \dccstat.txt $get(%i).pc $+ % áETA %geta4 ( $+ %c2 $+ $get(%i).rcvd $+  of  $+ %c3 $+ $get(%i).size $+  bytes) | goto start | :send | dec %i | set %j 0 | :begin | inc %j | inc %i | unset %barl | if (%j > $send(0)) goto end | %cpssend = $kps($send(%j).cps) | if (($send(%j).cps == n/a) || ($send(%i).cps == 0)) { set %cpssend 0.00 | set %geta4 n/a | goto send1 } | set %geta1 0 | set %geta2 0 | set %geta3 0
n85=%geta = $send(%j).size - $send(%j).sent | %geta = %geta / $send(%j).cps | :etas | if (%geta < 60) goto secs | if ((%geta >= 60) && (%geta < 3600)) goto mins | %geta3 = %geta / 3600 | %geta = %geta % 3600 | goto etas | :mins | %geta2 = %geta / 60  | %geta = %geta % 60 | goto etas | :secs | if (%geta != 0) set %geta1 %geta | if ((%geta1 >= 0) && (%geta1 < 10)) %geta1 = 0 $+ %geta1 | if ((%geta2 >= 0) && (%geta2 < 10)) %geta2 = 0 $+ %geta2 | %geta4 = %geta3 $+ : $+ %geta2 $+ : $+ %geta1 | :send1
n86=echo %c -a áááááááá# $+ %i áááááSEND áá $send(%j) áá $send(%j).status áá %cpssend áá $send(%j).file | %barl = $send(%j).pc + 1 | echo %c -a $read -l $+ %barl %path $+ \dccstat.txt $send(%j).pc $+ % áETA %geta4 ( $+ %c2 $+ $send(%j).sent $+  of  $+ %c3 $+ $send(%j).size $+  bytes) | goto begin | :end
n87=}
n88=sdcc {
n89=%numopen = %maxslots - $send(0) | set %num 0 | :start | inc %num | if (%num > %numpacks) { if (%showsum != y) halt | if (%showsum == y) { set %g 0 | set %totalmegs 0 | set %tlmegs 0 | :begin | inc %g | if (%g <= %numpacks) { %tmegs = %get [ $+ [ %g ] ] * $lof(%file [ $+ [ %g ] ] ) | inc %tlmegs %tmegs | %omegs = $lof(%file [ $+ [ %g ] ] ) | inc %ofmegs %omegs | goto begin } | %totalmegs = %tlmegs / 1000000 | %totalmegs1 = %tlmegs % 1000000 | %totalmegs = %totalmegs $+ . $+ $left(1,%totalmegs1) | %xc Total Offered:  $+ %tmo2 $+ M Total Snagged:  $+ %totalmegs $+ M } | set %xdcc open | halt }
n90=if ((%num == 1) && (%msall == on)) { %aspeed = %allspeed / 1000 | %xc ** %numpacks packs **   $+ %numopen $+  of  $+ %maxslots $+  slots open, queue:  $+ $lines(%qpath) $+ / $+ %maxqueue $+ . Min:  $+ %aspeed $+ kb/s, Record:  $+ %record $+ kb/s } | if ((%num == 1) && (%msall != on)) %xc ** %numpacks packs **   $+ %numopen $+  of  $+ %maxslots $+  slots open, queue:  $+ $lines(%qpath) $+ / $+ %maxqueue $+ . Record:  $+ %record $+ kb/s | %xc # $+ %num $+  %get [ $+ [ %num ] ] $+ x [ $+ $fsize(%num) $+ %bc $+ ] %filedesc [ $+ [ %num ] ]
n91=if (%fcomment [ $+ [ %num ] ] == $null) goto start | %xc á^- %fcomment [ $+ [ %num ] ] | goto start
n92=}
n93=xdccload {
n94=if ($1 == $null) halt | if ($readini %path $+ \xdcc.txt $1 numpacks == $null) { echo %c -a %h No such offer in xdcc save. | halt } | set %i 0 | %numpacks = $readini %path $+ \xdcc.txt $1 numpacks | :start | inc %i | if (%i > %numpacks) { echo %c -a %h XDCC offer  $+ %c2 $+ $1 $+  has been loaded. | xdcc on | halt }
n95=set %file [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 file [ $+ [ %i ] ] | set %filedesc [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 desc [ $+ [ %i ] ] | set %get [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 get [ $+ [ %i ] ] |  if ($readini %path $+ \xdcc.txt $1 fc [ $+ [ %i ] ] == yes) set %fcomment [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 comment [ $+ [ %i ] ] | goto start
n96=}
n97=xdccsave {
n98=if (($1 == $null) || (%numpacks == 0) || (%numpacks == $null)) halt | set %i 0 | writeini %path $+ \xdcc.txt $1 numpacks %numpacks | :start | inc %i | if (%i > %numpacks) { echo %c -a %h XDCC offer  $+ %c2 $+ $1 $+  has been saved. | halt }
n99=writeini %path $+ \xdcc.txt $1 file [ $+ [ %i ] ] %file [ $+ [ %i ] ] | writeini %path $+ \xdcc.txt $1 get [ $+ [ %i ] ] %get [ $+ [ %i ] ] | if (%fcomment [ $+ [ %i ] ] != $null) { writeini %path $+ \xdcc.txt $1 comment [ $+ [ %i ] ] %fcomment [ $+ [ %i ] ] | writeini %path $+ \xdcc.txt $1 fc [ $+ [ %i ] ] yes } |  writeini %path $+ \xdcc.txt $1 desc [ $+ [ %i ] ] %filedesc [ $+ [ %i ] ] | goto start
n100=}
n101=checkspeed {
n102=set %i 0 | :start | inc %i | if ($send(%i) == $null) halt | if ($send(%i) == $1) && ($send(%i).file == $2) {
n103=  if ($send(%i).status == waiting) { raw -q notice $1 :You have DCCs pending. Type /DCC GET $me $+ . | .timer 1 30 checkspeed *1 | halt } | if ($send(%i).cps < $3) { %mstime = $send(%i).cps / 1000 | %msspeed = $3 / 1000 | close -s $1 $2 | raw -q notice $1 :MINSPEED: %mstime $+ kb/sec less than %msspeed $+ kb/sec: Closing connection. | halt }
n104=}
n105=goto start
n106=}
n107=pchannels .timer 0 %tc plist $?="enter channel to send plist to (cancel for all):"
n108=poff { .timers off | .timer1 0 60 online }
n109=timelimit %chsend = 60 * $$1
n110=maxslots set %maxslots $$1
n111=qmax set %maxqueue $$1
n112=ptime %tc = $$1 * 60
n113=f1 {
n114=set %rf $rand(1,2)
n115=if %rf = 1 { set %rf *.wav | set %tfs $findfile($wavedir,%rf,*) | set %1 $rand(1,%tfs) }
n116=else { set %rf *.mid | set %tfs $findfile($wavedir,%rf,*) | set %1 $rand(1,%tfs) }
n117=set %2 $findfile($wavedir,%rf,%1)
n118=set %wavsize $lof(%2)
n119=sound # %2 tO gEt tHiS wAv Type ! $+ $me $nopath(%2)
n120=me wAv sErVeR!!! 11,1 bY ºñº CoolMoFo ºñº 
n121=halt
n122=f4 { ignore -tu45 %ignored | echo 12 $active -=* %ignored is now being ctcp ignored. | timer 1 45 echo 12 $active -=* %ignored is now unignored }
n123=}
n124=sb {
n125=set %banmask $address($$1,3)
n126=set %banmask1 $replace(%banmask,a,?)
n127=set %banmask2 $replace(%banmask1,e,?)
n128=set %banmask3 $replace(%banmask2,i,?)
n129=set %banmask4 $replace(%banmask3,o,?)
n130=set %banmask5 $replace(%banmask4,u,?)
n131=set %banmask6 $replace(%banmask5,2,?)
n132=set %banmask7 $replace(%banmask6,5,?)
n133=set %banmask8 $replace(%banmask7,8,?)
n134=set %banmask9 $replace(%banmask8,9,?)
n135=mode $chan +b %banmask9
n136=unset %banmask*
n137=}
n138=sbk {
n139=set %banmask $address($$1,3)
n140=set %banmask1 $replace(%banmask,a,?)
n141=set %banmask2 $replace(%banmask1,e,?)
n142=set %banmask3 $replace(%banmask2,i,?)
n143=set %banmask4 $replace(%banmask3,o,?)
n144=set %banmask5 $replace(%banmask4,u,?)
n145=set %banmask6 $replace(%banmask5,2,?)
n146=set %banmask7 $replace(%banmask6,5,?)
n147=set %banmask8 $replace(%banmask7,8,?)
n148=set %banmask9 $replace(%banmask8,9,?)
n149=kick $chan $$1 $?="Enter reason:"
n150=mode $chan +b %banmask9
n151=unset %banmask*
n152=}
n153=/; /onotice *1
n154=/3d { msg $active  $+ $2 $+ , $+ $2 *3 $+ ! | msg $active  $+ $1 $+ , $+ $2 *3 1,1! | msg $active  $+ $2 $+ , $+ $2 *3 1,1! | msg $active  $+ 0 $+ , $+ 0 1,1 *3 $+ ! }
n155=/brb /me will be right back :╖)
n156=/www /amsg 4,1http://members.aol.com/LHender974/home.htm0,1 Official #celebnudepics website...12,1Free pics to download!
n157=/op /mode # +ooo $$1 $2 $3 | /mode # +ooo $$4 $5 $6
n158=/deop /mode # -ooo $$1 $2 $3 | /mode # -ooo $$4 $5 $6
n159=/l /part
n160=/j /RAW -q JOIN #$1 : $+ *2
n161=;/j /join #$1
n162=/npo /timer75 0 100 /raw pong $server $server
n163=/w /who $$1
n164=/wi /whois $1
n165=/ww /whowas $$1
n166=/k /kick # $$1 *2
n167=/kb ban -u5 # $$1 3 | /kick # $$1 *2
n168=/q /query $$1
n169=/send /dcc send $1 $2
n170=/chat /dcc chat $1
n171=/top /topic # *1
n172=/to /timers off
n173=/i /invite $$1 #
n174=/m /msg $$1 *2
n175=/wall /wallops [WallOps] *1
n176=/no /notice $1 [Notice/ $+ $1 ] *2
n177=/e /exit
n178=/time /echo 4 $time on $date
n179=/ransom { %num = 2 | unset %msg  | %msg =   $upper( $mid(1, 1,*1) ) $+ 
n180=:start
n181=%U = $rand(1,2) | %B = $rand(1,2) | %R = $rand(1,2) | %up = $rand(1,2)
n182=%DaMan = 
n183=if %u == 1 { %DaMan = $remove(%daMan,) }
n184=if %b == 1 { %DaMan = $remove(%DaMan,) }
n185=if %R == 1 { %DaMan = $remove(%DaMan,) }
n186=if $mid(%num,1, *1) != $null {
n187=  if %up == 1 && $mid(%num, 1,*1) != $chr(32)  { %msg = %msg $+ %DaMan $+ $upper( [ $mid(%num, 1,*1) ] ) $+ %DaMan }
n188=  if %up == 2 || $mid(%num, 1,*1) == $chr(32) { %msg = %msg $+ %DaMan $+ $mid(%num, 1,*1) $+ %DaMan }
n189=  inc %num
n190=goto start  }
n191=say %msg
n192=}